<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>6</cardCount>
<cardID>2983</cardID>
<listID>2156</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackglobal menu1,menu2put newMenu("Water","Find it","Get it","Humans","Biological diversity",¬"A Difference","(-","Main Menu","(-","Water Help") into menu1put newMenu("Video","Laser","Tape") into menu2end openStackon closeStackglobal menu1,menu2put deleteMenu(menu1) into menu1put deleteMenu(menu2) into menu2end closeStackon doMenu whichglobal menu1,menu2if which is "Find it" thenvisual effect dissolve slow to blackwait 5visual effect dissolve slowgo to stack "where we find water"else if which is "Get it" thenvisual effect dissolve slow to blackwait 5visual effect dissolve slowgo to stack "where we get water"else if which is "Humans" thenvisual effect dissolve slow to blackwait 5visual effect dissolve slowgo to stack "human adaptation"else if which is "Biological diversity" thenvisual effect dissolve slow to blackwait 5visual effect dissolve slowgo to stack "biological diversity"else if which is "A Difference" thenvisual effect dissolve slow to blackwait 5visual effect dissolve slowgo to stack "we make a difference"else if which is "Main Menu" thenvisual effect dissolve slow to blackwait 5visual effect dissolve slowgo to stack "database-1"else if which is "Water Help" thenpush cardvisual effect dissolve slow to blackwait 5visual effect dissolve slowgo to card "help" in stack "database-1"else if which is "Laser" thenanswer "Coming soon to a Laser Optical Disk Player!" with "OK"else if which is "Tape" thenanswer "You have got to be kidding!" with "OK"elsepass doMenuend ifend doMenuon sicEmFidoglobal ContinueOrNot, searchStringif ContinueOrNot is NoGo thenput empty into ContinueOrNotexit sicEmFidoend ifask "Type in the word or phrase you want to find." with searchStringif the result is cancel thenanswer "Ending search"exit sicEmFidoend ifput it into searchStringsniffOutend SicEmFidoon sniffOutglobal ContinueOrNot, searchStringfind whole searchStringif the result is empty thenanswer "Do you want to search for further occurences?"¬with "Yes" or "No" or "Another"if it is "Yes" thensniffOutend ifif it is "No" thenanswer "The search is complete."put NoGo into ContinueOrNotsicEmFidoend ifif it is "Another" thensicEmFidoend ifend ifif the result is not empty thenanswer "I did not find your selection."end ifend sniffOut</script>